home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #3 / Commodore_Disk_User_Vol.1_3_1988_-.d64 / rem mc (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  599 b   |  29 lines
  1. 10 rem this program demonstrates how
  2. 20 rem to include machine code into a
  3. 30 rem compiled basic program
  4. 40 rem
  5. 50 rem the code at lines 1000-1050 is:
  6. 60 rem
  7. 70 rem        sei
  8. 80 rem        ldx #$00
  9. 90 rem   loop lda $d012 ;get raster
  10. 91 rem        lsr a     ;position
  11. 92 rem        lsr a
  12. 93 rem        lsr a
  13. 94 rem        lsr a
  14. 95 rem        sta 53281 ;change colour
  15. 96 rem        dex       ;repeat 256
  16. 97 rem        bne loop  ;times
  17. 98 rem        cli
  18. 99 rem
  19. 100 gosub1000
  20. 110 geta$:ifa$=""then100
  21. 120 poke53281,0:end
  22. 1000 rem#$78,$a2,$00
  23. 1010 rem#$ad,$12,$d0
  24. 1020 rem#$4a,$4a,$4a,$4a
  25. 1030 rem#$8d,d53281
  26. 1040 rem#$ca,$d0,$f3
  27. 1050 rem#$58
  28. 1060 return
  29.